home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 220 / 220.d81 / b.ls briefs (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  968b  |  28 lines
  1. 10 poke53281,0:poke53280,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 print"[147][129]           [204][207][193][196][211][212][193][210] [194][210][201][197][198][211] [204][201][212][197]
  4. 40 [153][163]10)"1  cont(NULL)itle (NULL)creen (NULL)iewer
  5. 50 printtab(10)"2  [154][195]ontents/[196]ir [208]rinter
  6. 60 [153][163]10)"3  cont(NULL)ext (NULL)rinter
  7. 70 printtab(10)"4  [154][210]eturn to [204][207][193][196][211][212][193][210]
  8. 90 [151]198,0
  9. 100 [161]a$:[139]a$[179]"1"[176]a$[177]"4"[167]100
  10. 110 [139]a$[178]"1"[167]f$[178]"ts viewer"
  11. 120 [139]a$[178]"2"[167]f$[178]"c/d printer
  12. 130 ifa$="3"thenf$="text printer"
  13. 140 ifa$="4"then40000
  14. 150 print"[144]load"chr$(34)f$chr$(34)","dv
  15. 160 print"run:rem"
  16. 170 poke631,13:poke632,13:poke198,2:end
  17. 10000 d=peek(186):n$="0:ls briefs":open15,d,15,"s"+n$:close15:saven$,d:end
  18. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  19. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  20. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  21. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  22. 40040 close2:open2,i,2:close2:ifstthen40060
  23. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  24. 40060 next:return
  25. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  26. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  27. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  28.